//HINT_NA_STATUSBAR

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

Application->OnHint = MostraHint;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::MostraHint(TObject *Sender)

{

StatusBar1->Panels->Items[0]->Text = Application->Hint;

}

//Adicione

public: // User declarations

__fastcall TForm1(TComponent* Owner);

void __fastcall MostraHint(TObject *Sender);